home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / B / Batch DL’er(update).cpt / Batch DL < prev   
Encoding:
Text File  |  1988-11-12  |  2.8 KB  |  89 lines  |  [TEXT/MACA]
  1.  Settings File = Batch DL'er
  2.  Script Name = Batch DL
  3.  Command Key = 
  4.  F-key = 
  5.  Menu = NO
  6.  Button = NO
  7.  
  8. 1   Remark "** REMOVE the following if you don't use the supplied modem driver"
  9. 2   If Expression  "=(EXISTS(online)=false) or (online=false)"
  10. 3     Do Script * " Log On"
  11. 4     When Text Equals  ">elp?"
  12. 5     Or When Seconds Have Passed  "=100"
  13. 6       Do Script * "Timeout Error"
  14. 7     End When
  15. 8   End If
  16. 9   Remark "****** END of REMOVE ******************"
  17. 10  Set Variable BadDL from Expression  "=0"
  18. 11  Set Variable EOF from Expression  "=0"
  19. 12  Send File * Text Line by Line  "DL Files List"
  20. 13  Set Variable FileNumber from File Line  
  21. 14  If Failure 
  22. 15    Do Script * "Set DL List"
  23. 16    Set Variable FileNumber from File Line  
  24. 17  End If
  25. 18  Send Text String  "m 606^M"
  26. 19  When Text Equals  ">elp?"
  27. 20    Send Text String  "6^M"
  28. 21  Or When Seconds Have Passed  "=60"
  29. 22    Do Script * "Timeout Error"
  30. 23  End When
  31. 24  Repeat
  32. 25    Set Variable BadDl from Expression  "=BadDl+1"
  33. 26    When Text Equals  "elp?"
  34. 27      Send Text String  "=FileNumber,'^M'"
  35. 28    Or When Seconds Have Passed  "=60"
  36. 29      Do Script * "Timeout Error"
  37. 30    End When
  38. 31    When Text Equals  "(Y/N)?"
  39. 32      Remark "Bypass bad file numbers"
  40. 33      Set Variable PerfectDL from Expression  "=false"
  41. 34    Or When Line Contains  "<Q>uit."
  42. 35      When Text Equals  "?"
  43. 36        Send Text String  "d^M"
  44. 37      Or When Seconds Have Passed  "=60"
  45. 38        Do Script * "Timeout Error"
  46. 39      End When
  47. 40      When Text Equals  "skip?"
  48. 41        Send Text String  "2^M"
  49. 42        When Line Contains  "receive file"
  50. 43          Receive File * XMODEM MacBinary  ""
  51. 44        Or When Seconds Have Passed  "=60"
  52. 45          Do Script * "Timeout Error"
  53. 46        End When
  54. 47      Or When Seconds Have Passed  "=60"
  55. 48        Do Script * "Timeout Error"
  56. 49      End When
  57. 50    Or When Seconds Have Passed  "=60"
  58. 51      Do Script * "Timeout Error"
  59. 52    End When
  60. 53    Set Variable FileNumber from File Line  
  61. 54    If Failure 
  62. 55      Remark "Must be end of file, so logoff and leave script"
  63. 56      Set Variable EOF from Expression  "=1"
  64. 57      When Text Equals  "(Y/N)?"
  65. 58        Send Text String  "n^M"
  66. 59      Or When Seconds Have Passed  "=60"
  67. 60        Do Script * "Timeout Error"
  68. 61      End When
  69. 62      Wait Seconds  "1"
  70. 63      When Text Equals  ">elp?"
  71. 64        Do Script * "Log Off"
  72. 65      Or When Seconds Have Passed  "=60"
  73. 66        Do Script * "Timeout Error"
  74. 67      End When
  75. 68    Else
  76. 69      When Text Equals  "(Y/N)?"
  77. 70        Send Text String  "y^M"
  78. 71      Or When Seconds Have Passed  "=60"
  79. 72        Do Script * "Timeout Error"
  80. 73      End When
  81. 74    End If
  82. 75  Until Expression  "=(EOF=1)"
  83. 76  Do Script * "Reset DL List"
  84. 77  Dialog Discard  
  85. 78  Notify Discard  
  86. 79  Notify Install  "Finished Batch Download......"
  87. 80  Wait Seconds  "=10"
  88. 81  Notify Discard  
  89.